--[[
    编码: WMS-22-04
    名称: 发货单-定版后
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： AfterStateChange

    功能:
        -- 删除系统中和发货单号相关的最大行号记录 
        -- 【发货单明细】设置为定版
        -- 如果 C_AUTO_SORTING = Y 触发【发货单】的｛创建分拣单｝事件
    更改记录:
        V7.0 -- 如果C_AUTO_SORTING = Y 触发【发货单】的｛创建分拣单｝事件

--]]
json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function AfterStateChange ( strLuaDEID ) 
    local   nRet, strRetInfo

    -- 获取 S_NO
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_NO","S_STATE", "C_AUTO_SORTING" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 

    local obj_attrs = json.decode( strRetInfo ) 
    local shipping_no = obj_attrs[1].value           -- 发货单编号
    local state = obj_attrs[2].value                 -- 发货单状态
    local auto_sorting = obj_attrs[3].value          -- 系统自动生成分拣单

    if ( shipping_no == '') then
        lua.Warning( strLuaDEID, debug.getinfo(1), "发货单编号为空! " )
        return
    end

    -- 清除 shipping_no 的最大行号记录
    nRet, strRetInfo = mobox.removeSerialNumber( "行号", shipping_no )
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "removeSerialNumber() 失败! "..strRetInfo ) end 

    -- 设置【发货单明细】的状态=定版
    local strCondition = "S_SHIPPING_NO = '"..shipping_no.."'"
    nRet, strRetInfo = mobox.setDataObjStateByCondition( strLuaDEID, "Shipping_Detail", strCondition, state )
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "setDataObjStateByCondition() 失败! "..strRetInfo ) end 

    -- V7.0
    -- 如果需要系统自动生成分拣单
    if ( auto_sorting == 'Y') then
        -- 触发【发货单】的｛创建分拣单｝脚本
        --获取当前编辑的数据对象标识
        local strClsID, strObjID
        nRet, strClsID, strObjID = mobox.getCurEditDataObjID( strLuaDEID )
        if ( nRet ~=0 ) then
            lua.Error( strLuaDEID, debug.getinfo(1), "获取当前对象标识失败!" )
        end
        nRet, strRetInfo = mobox.triggerClsEvent( strLuaDEID, strClsID, strObjID, "创建分拣单" )
        if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "执行【发货单】创建分拣单脚本失败!"..strRetInfo ) end
    end
end